home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ap-Az / AutoScripter.cpt / AutoScripter / card_3866.txt < prev    next >
Text File  |  1988-03-05  |  7KB  |  298 lines
  1. -- card: 3866 from stack: in
  2. -- bmap block id: 4197
  3. -- flags: 4000
  4. -- background id: 2786
  5. -- name: properties
  6. ----- HyperTalk script -----
  7. on TorF
  8.   global holder,propName
  9.   answer "Set " & propName & " to what?" with "False" or "True"
  10.   put space & it & return after holder
  11.   put holder after field "script-it" of card "main card"
  12.   visual effect wipe left
  13.   pop card
  14. end TorF
  15.  
  16.  
  17.  
  18. -- part 1 (button)
  19. -- low flags: 00
  20. -- high flags: 8000
  21. -- rect: left=95 top=142 right=164 bottom=195
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 0 / 0
  24. -- text alignment: 1
  25. -- font id: 0
  26. -- text size: 12
  27. -- style flags: 0
  28. -- line height: 16
  29. -- part name: arrowKeys
  30. ----- HyperTalk script -----
  31. on mouseUp
  32.   global holder, propNmae
  33.   put "arrowKeys" into propName
  34.   put " arrowKeys to " after holder
  35.   TorF
  36. end mouseUp
  37.  
  38.  
  39.  
  40. -- part 2 (button)
  41. -- low flags: 00
  42. -- high flags: 8000
  43. -- rect: left=95 top=171 right=193 bottom=195
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 1
  47. -- font id: 0
  48. -- text size: 12
  49. -- style flags: 0
  50. -- line height: 16
  51. -- part name: Blind Typing
  52. ----- HyperTalk script -----
  53. on mouseUp
  54.   global holder, propNmae
  55.   put "blindTyping" into propName
  56.   put " blindTyping to " after holder
  57.   TorF
  58. end mouseUp
  59.  
  60.  
  61.  
  62. -- part 3 (button)
  63. -- low flags: 00
  64. -- high flags: 8000
  65. -- rect: left=95 top=200 right=222 bottom=195
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: cursor
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   global holder
  77.   put " cursor to " after holder
  78.   ask "Enter cursor number:" with "1"
  79.   put it after holder
  80.   put holder & return after field "script-it" of card "main card"
  81.   pop card
  82. end mouseUp
  83.  
  84.  
  85.  
  86. -- part 4 (button)
  87. -- low flags: 00
  88. -- high flags: 8000
  89. -- rect: left=96 top=228 right=250 bottom=196
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 1
  93. -- font id: 0
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: Drag Speed
  98. ----- HyperTalk script -----
  99. on mouseUp
  100.   global holder, propNmae
  101.   put " dragSpeed to " after holder
  102.   ask "What speed (pixels per second)?"
  103.   put it & return after holder
  104.   put holder after field "script-it" of card "main card"
  105.   pop card
  106. end mouseUp
  107.  
  108.  
  109.  
  110.  
  111. -- part 5 (button)
  112. -- low flags: 00
  113. -- high flags: 8000
  114. -- rect: left=96 top=257 right=279 bottom=196
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: editBkgnd
  123. ----- HyperTalk script -----
  124. on mouseUp
  125.   global holder, propNmae
  126.   put "editBkgnd" into propName
  127.   put " editBkgnd to " after holder
  128.   TorF
  129. end mouseUp
  130.  
  131.  
  132.  
  133. -- part 6 (button)
  134. -- low flags: 00
  135. -- high flags: 8000
  136. -- rect: left=96 top=286 right=308 bottom=196
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 1
  140. -- font id: 0
  141. -- text size: 12
  142. -- style flags: 0
  143. -- line height: 16
  144. -- part name: language
  145. ----- HyperTalk script -----
  146. on mouseUp
  147.   global holder
  148.   ask "What Language?" with "English"
  149.   put " language to " & it & return after holder
  150.   put holder after field "script-it" of card "main card"
  151.   pop card
  152. end mouseUp
  153.  
  154.  
  155.  
  156. -- part 7 (button)
  157. -- low flags: 00
  158. -- high flags: 8000
  159. -- rect: left=321 top=143 right=165 bottom=421
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 0 / 0
  162. -- text alignment: 1
  163. -- font id: 0
  164. -- text size: 12
  165. -- style flags: 0
  166. -- line height: 16
  167. -- part name: lockMessages
  168. ----- HyperTalk script -----
  169. on mouseUp
  170.   global holder, propNmae
  171.   put "lockMessages" into propName
  172.   put " lockMessages to " after holder
  173.   TorF
  174. end mouseUp
  175.  
  176.  
  177.  
  178. -- part 8 (button)
  179. -- low flags: 00
  180. -- high flags: 8000
  181. -- rect: left=321 top=170 right=192 bottom=421
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 0 / 0
  184. -- text alignment: 1
  185. -- font id: 0
  186. -- text size: 12
  187. -- style flags: 0
  188. -- line height: 16
  189. -- part name: lockRecent
  190. ----- HyperTalk script -----
  191. on mouseUp
  192.   global holder, propNmae
  193.   put "lockRecent" into propName
  194.   put " lockRecent to " after holder
  195.   TorF
  196. end mouseUp
  197.  
  198.  
  199.  
  200. -- part 9 (button)
  201. -- low flags: 00
  202. -- high flags: 8000
  203. -- rect: left=321 top=199 right=221 bottom=421
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 0 / 0
  206. -- text alignment: 1
  207. -- font id: 0
  208. -- text size: 12
  209. -- style flags: 0
  210. -- line height: 16
  211. -- part name: lockScreen
  212. ----- HyperTalk script -----
  213. on mouseUp
  214.   global holder, propNmae
  215.   put "lockScreen" into propName
  216.   put " lockScreen to " after holder
  217.   TorF
  218. end mouseUp
  219.  
  220.  
  221.  
  222. -- part 10 (button)
  223. -- low flags: 00
  224. -- high flags: 8000
  225. -- rect: left=320 top=229 right=251 bottom=420
  226. -- title width / last selected line: 0
  227. -- icon id / first selected line: 0 / 0
  228. -- text alignment: 1
  229. -- font id: 0
  230. -- text size: 12
  231. -- style flags: 0
  232. -- line height: 16
  233. -- part name: numberFormat
  234. ----- HyperTalk script -----
  235. on mouseUp
  236.   global holder
  237.   put " numberFormat to " after holder
  238.   ask "How many digits of precision?" with "2"
  239.   put it into precision
  240.   answer "Display a zero before the decimal?" with "Sure" or "Heck No"
  241.   put it in to displayZero
  242.   if display zero is "Yes" then put "0" into format
  243.   put "." after format
  244.   repeat with counter = 1 to precision
  245.     put "#" after format
  246.   end repeat
  247.   put auote & format & quote & return after holder
  248.   put holder after field "script-it" of card "main card"
  249.   pop card
  250. end mouseUp
  251.  
  252.  
  253.  
  254. -- part 11 (button)
  255. -- low flags: 00
  256. -- high flags: 8000
  257. -- rect: left=320 top=257 right=279 bottom=420
  258. -- title width / last selected line: 0
  259. -- icon id / first selected line: 0 / 0
  260. -- text alignment: 1
  261. -- font id: 0
  262. -- text size: 12
  263. -- style flags: 0
  264. -- line height: 16
  265. -- part name: powerKeys
  266. ----- HyperTalk script -----
  267. on mouseUp
  268.   global holder, propNmae
  269.   put "powerKeys" into propName
  270.   put " powerKeys to " after holder
  271.   TorF
  272. end mouseUp
  273.  
  274.  
  275.  
  276. -- part 12 (button)
  277. -- low flags: 00
  278. -- high flags: 8000
  279. -- rect: left=320 top=286 right=308 bottom=420
  280. -- title width / last selected line: 0
  281. -- icon id / first selected line: 0 / 0
  282. -- text alignment: 1
  283. -- font id: 0
  284. -- text size: 12
  285. -- style flags: 0
  286. -- line height: 16
  287. -- part name: userLevel
  288. ----- HyperTalk script -----
  289. on mouseUp
  290.   golbal holder
  291.   put " userLevel to " after holder
  292.   ask "What level of use?" with "5"
  293.   put it after holder
  294.   put holder & return after field "script-it" of card "main card"
  295.   pop card
  296. end mouseUp
  297.  
  298.